#!/usr/bin/perl

use strict;
use lib qw(lib);

use AnyEvent;
use Config::General;

use StatuSync::Log;
use StatuSync::Web;
use StatuSync::Daemon;

my %conf = Config::General->new('-ConfigFile' => 'statusyncd.conf', '-LowerCaseNames' => 1)->getall;
#StatuSync::Log->debug(\%conf);

my $web = StatuSync::Web->init;
my $daemon = StatuSync::Daemon->new(\%conf)->init;

while (1) {
	$daemon->init_stream;
	AnyEvent->condvar->recv;
}

